(welcome "Welcome to the installer for TaskBar6!\n \n"
"TaskBar v6 by Robert Ennals\n"
"TaskBarPrefs by Guilherme Cirne\n")
(
(complete 0)
; find out whether to put TaskBar in WBStartup
(set autostart
(askbool
(prompt "Do you want to install TaskBar to Sys:WbStartup so that it starts up automatically?")
(default 1)
(help "If you just want to test TaskBar then don't put it in WBStartup. If you want TaskBar to always be active then do. If you change your mind later then just copy it in or out of WBStartup")
)
)
(if autostart
(
(if (exists "Ram:wbstartup/TaskBar")
(
(delete Ram:wbstartup/TaskBar)
(delete Ram:wbstartup/TaskBar.info)
)
)
(copyfiles
(prompt ("Copying TaskBar to Sys:WBStartup"))
(help @copyfiles-help)
(source "bin/TaskBar")
(dest "Sys:WBStartup/")
(infos)
)
)
(
(set tbdest
(askdir
(prompt ("Where do you want me to put TaskBar then"))
(default "Work:")
(help @askfile-help)
(disk)
)
)
(copyfiles
(prompt ("Copying TaskBar"))
(help @copyfiles-help)
(source "bin/TaskBar")
(dest tbdest)
(infos)
)
)
)
(complete 20)
(if (exists "ENVARC:TaskBar4.prefs")
(
(message ("Previous version of TaskBar found. Preferences preserved"))
)
(
(copyfiles
(prompt ("Copying prefs file to ENVARC:"))
(help @copyfiles-help)
(source "env/TaskBar4.prefs")
(dest "ENVARC:")
)
(copyfiles
(prompt ("Copying prefs file to ENV:"))
(help @copyfiles-help)
(source "env/TaskBar4.prefs")
(dest "ENV:")
)
)
)
(complete 40)
(set tbdest
(askdir
(prompt ("Where do you want the TaskBar extras to be put? \n"
"Extras include the documentation and TellScreens. \n"
"This must NOT be the installation source directory"))
(default "Work:")
(help @askfile-help)
(disk)
)
)
(copyfiles
(prompt ("Copying documentation"))
(help @copyfiles-help)
(source "TaskBar.guide")
(dest tbdest)
(infos)
)
(complete 60)
(copyfiles
(prompt ("Copying Tellscreens"))
(help @copyfiles-help)
(source "bin/Tellscreens")
(dest tbdest)
(infos)
)
(copyfiles
(prompt ("Copying WBRun to C"))
(help @copyfiles-help)
(source "c/WBRun")
(dest "C:")
)
(copylib
(prompt ("Installing parm.library for WBRun"))
(help @copylib-help)
(confirm)
(source "libs/parm.library")
(dest "libs:")
)
(complete 80)
(set prefs
(askbool
(prompt "Do you want to copy TaskBarPrefs to sys:prefs?")
(default 1)
(help "If you select NO then TaskBar will not be able to launch TBPrefs")
)
)
(if prefs
(
(if (exists "Ram:Prefs/TBPrefs")
(
(delete "Sys:Prefs/TaskBarPrefs")
(delete "Sys:Prefs/TaskBarPrefs.info")
)
)
(copyfiles
(prompt ("Copying TBPrefs to Sys:Prefs/"))
(help @copyfiles-help)
(source "bin/TaskBarPrefs")
(dest "Sys:Prefs/")
(infos)
)
)
)
(message
(
"Make sure you read TaskBar.guide \n before using TaskBar \n"